perm filename SAIL.DIF[CMU,AIL] blob
sn#321367 filedate 1977-12-13 generic text, type T, neo UTF8
File 1) PRVF:IOSER created: 0722 15-NOV-1977
File 2) PRVF:IOSER.SU created: 0648 15-NOV-1977
1)8 ;=F9= 11-Nov-77 MAS Fix for CMU KL
1) ILLMOD ←← 007776 ;CMUA is DEC 007777, CMUB is 377776
1) ;BIT 400000 FOR SPECIAL DEVICE (CMU)
1) ;BIT 000001 FOR KEEPING NULLS
1) HRLOI X,-2 ;Check if we are on a KA
1) AOBJN X,.+3 ;Not a KA
1) ;=F9= ↑
1) TLZE Z,10000 ;IOACTIVE BIT TO BE SET ON OPEN ??? (LDE)
****
2)7 ILLMOD ←← 377776 ;BIT 400000 FOR SPECIAL DEVICE (CMU)
2) ;BIT 000001 FOR KEEPING NULLS
2) TLZE Z,10000 ;IOACTIVE BIT TO BE SET ON OPEN ??? (LDE)
**************
1)9 ;=F9= 11-Nov-77 MAS Funny input devices only on CMUB
1) HRLOI TEMP,-2 ;Check if we are on a KA
1) AOBJN TEMP,CMUKL0 ;Not a KA
1) SKIPL DMODE(CDB) ;DID HE SPECIFY TO GET ERRS FROM
****
2)8 SKIPL DMODE(CDB) ;DID HE SPECIFY TO GET ERRS FROM
**************
1)9 CMUKL0:
1) ;=F9= ↑
1) >;CMU
****
2)8 >;CMU
**************
1)31 ;=F9= 14-Nov-77 MAS Add some TYMSHARE things at CMU
1) NOTENX <
1) CMU <DEFINE IENT3 <BACKUP,TTYINL,SKPINC,SKPINL,IONEOU,IOUTSTR>>;CMU
1) NOCMU <DEFINE IENT3 <NOSTANFO<BACKUP,>TTYINL> >;NOCMU
1) > ;NOTENX
1) ;=F9= ↑
1) TENX <DEFINE IENT3 <TTYINL> > ;TENX >;NOTYMSHR
****
2)30 NOTENX <DEFINE IENT3 <NOSTANFO<BACKUP,>TTYINL>> ;NOTENX
2) TENX <DEFINE IENT3 <TTYINL> > ;TENX >;NOTYMSHR
**************
1)31 ;=F9= 14-Nov-77 MAS Add some TYMSHARE things at CMU
1) ; Also add CMU special TTCALL 16, function.
1) IFN CMUSW!TYMSW, <
1) HEREFK(IONEOU,IONOU.)
****
2)30 TYMSHR <
2) HEREFK(IONEOU,IONOU.)
**************
1)31 >; IFN CMUSW!TYMSW
1) CMU <
1) HEREFK(SKPINC,SKPIC.)
1) SKIPA TEMP,[TTCALL 13,]
1) HEREFK(SKPINL,SKPIL.)
1) MOVE TEMP,[TTCALL 14,]
1) SETO A,
1) XCT TEMP
1) SETZ A,
1) POPJ P,
1) DSCR IOUTSTR(INTEGER ARRAY IMGSTRING[1:n]);
1) CAL SAIL
1) ↑V
1) Comment ↑V Perform CMU's IOUTSTR (TTCALL 16,) on argument array. ↑V
1) HEREFK(IOUTSTR,IOUTS.)
1) MOVE USER,GOGTAB
1) POP P,UUO1(USER) ;GET RID OF IT, MARK LAST SAIL CALL
1) POP P,LPSA ;ARRAY ADDRESS WHERE INFO IS TO GO
1) SKIPGE -2(LPSA) ;MAKE SURE IT'S NOT A STRING ARRAY
1) ERR <IOUTSTR: Must be integer array>,1
1) MOVE TEMP,(LPSA) ; Get count-word from user
1) ADD TEMP,X11 ; 1 in LH,,count+1
1) PUSH P,TEMP ; save it
1) MOVE TEMP,-1(LPSA) ;TOTAL ARRAY SIZE WORD
1) CAML TEMP,(P) ;Must be 1-D, big enough
1) CAMLE TEMP,[XWD 1,-1] ;BUT NOT 2-D
1) ERR <IOUTSTR: Bad array parameter>,1
1) POP P,TEMP ; Flush stack
1) TTCALL 16,(LPSA) ; Do the deed
1) JRST @UUO1(USER) ;GONE
1) >;CMU
1) ;=F9= ↑
1) HERE (INCHRW)
****
2)30 >;TYMSHR
2) HERE (INCHRW)
**************
1)31 ;=F9= 14-Nov-77 MAS New CMU INCHWL
1) NOCMU <
1) INS3: CAIE TEMP,12
1) EXPO <
****
2)30 INS3: CAIE TEMP,12
2) NOCMU < ;WE WILL JUST BREAK ON CR OR LF, THANK YOU
2) EXPO <
**************
1)31 JRST DNSTR ;YES
1) >;NOCMU
1) CMU <
1) INS3:
1) CAILE TEMP,33 ; Only check if leq 33
1) JRST INCON ; otherwise never break.
1) MOVE B,[xwd 042360,001400] ; Bit map for break chrs -
1) LSH B,(TEMP) ; ↑C,↑G,LF,VT,FF,CR,↑Z,ESC
1) JUMPL B,DNSTR ; Break if was one.
1) INCON:
1) >;CMU
1) ;=F9= ↑
1) >;NOTYMSHR
****
2)30 >;NOCMU
2) CMU < CAIE TEMP,15 ;CR?
2) CAIN TEMP,12 ; OR LF?
2) >;CMU
2) JRST DNSTR ;YES
2) >;NOTYMSHR
**************
1)31 ;=F9= 14-Nov-77 MAS CFE changed to Boolean at CMU
1) ;; CFE, make a Boolean function: TRUE iff skipped back over something.
1) CMU < SETZ A, ; Make a Boolean function.
1) TTYUUO 10,1 ; The only skippable RESCAN
1) SETO A, ; it found chars to skip over. >; CMU
1) NOCMU < TTYUUO 10,0
1) JFCL ;THIS CAN SKIP? >; NOCMU
1) ;=F9= ↑
1) POPJ P,
****
2)30 TTYUUO 10,0
2) JFCL ;THIS CAN SKIP?
2) POPJ P,
**************
File 1) PRVF:GOGOL created: 0741 15-NOV-1977
File 2) PRVF:GOGOL.SU created: 0654 15-NOV-1977
1)64 ;=F9= 14-Nov-77 MAS Add some TYMSHARE things at CMU
1) IFN CMUSW!TYMSW, <DEFINE IENT1 <CODE,CALL,CALLI>>;IFN CMUSW!TYMSW
1) IFE CMUSW!TYMSW, <DEFINE IENT1 <CODE,CALL>>;IFE CMUSW!TYMSW
1) ;=F9= ↑
1) COMPXX(COD,IENT1,<.SKIP.,CVSIX,X22,GOGTAB,X33>,<CODE, CALL>)
****
2)63 TYMSHR <DEFINE IENT1 <CODE,CALL,CALLI>>;TYMSHR
2) NOTYMSHR <DEFINE IENT1 <CODE,CALL>>;NOTYMSHR
2) COMPXX(COD,IENT1,<.SKIP.,CVSIX,X22,GOGTAB,X33>,<CODE, CALL>)
**************
1)65 ;=F9= 14-Nov-77 MAS Add some TYMSHARE things at CMU
1) IFN CMUSW!TYMSW, <
1) DSCR VALUE←CALLI(VAL,CALLI NUMBER);
****
2)64 TYMSHR <
2) DSCR VALUE←CALLI(VAL,CALLI NUMBER);
**************
1)65 >;IFN CMUSW!TYMSW
1) ;=F9= ↑
1) ENDCOM (COD)
****
2)64 >;TYMSHR
2) ENDCOM (COD)
**************
File 1) PRVF:SPARES created: 0745 15-NOV-1977
File 2) PRVF:SPARES.SU created: 0704 15-NOV-1977
1)2 ;=F9= 14-Nov-77 MAS Add some TYMSHARE things at CMU
1) CMU<
1) HERE(CALLI)
1) JRST CALLI.
1) HERE(SKPINC)
1) JRST SKPIC.
1) HERE(SKPINL)
1) JRST SKPIL.
1) HERE(IONEOU)
1) JRST IONOU.
1) HERE(IOUTSTR)
1) JRST IOUTS.
1) >;CMU
1) ;=F9= ↑
1) >;UP
****
2)1 >;UP
**************
File 1) DSK:FOO2 created: 1340 29-NOV-1977
File 2) DSK:FOO2.SU created: 1042 30-NOV-1977
1)2 NOCMU[
1) BACKUP UNTYPE OWN+BILTIN 0 0 4
1) ]
1) CMU[
1) BACKUP INTEGR OWN+BILTIN 0 0 4
1) ]
1) FILEINFO UNTYPE OWN+BILTIN 1 0 3
****
2)3 BACKUP UNTYPE OWN+BILTIN 0 0 4
2) FILEINFO UNTYPE OWN+BILTIN 1 0 3
**************
1)2 MUMBLE Copy from TYMSHARE, 20-Oct-77, CFE;
1) IONEOU UNTYPE OWN 1 0 4
1) VALINT (CHARACTER) INTEGR VALUE
1) CALLI INTEGR OWN 2 0 4
1) VALINT (INPUT-VAL) INTEGR VALUE
1) VALINT (INPUT-CALLINUM) INTEGR VALUE
1) MUMBLE Now insert our own;
1) SKPINC INTEGR OWN 0 0 4
1) SKPINL INTEGR OWN 0 0 4
1) IOUTSTR UNTYPE OWN 1 0 4
1) ARRINT (ARRAY) INTEGR REFRNC+SBSCRP
1) INITSEA INTEGR OWN 1 0 4
****
2)3 INITSEA INTEGR OWN 1 0 4
**************
File 1) F:HEAD created: 0122 27-NOV-1977
File 2) F:HEAD.SU created: 0117 27-NOV-1977
1)5 ;=G1= MAS 27-Nov-77 CMU wants only KA system
1) ?KL10SW←←0 ;Build a KA SAIL
1) ?KI10SW←←0 ;Ditto
1) ;=G1= ↑
1) >;CMU
****
2)5 >;CMU
**************